Task 1
Students need to include an overview section that briefly summarizes the dataset.
spill_raw<-read_csv(here("Assignment 4","data","Oil_Spill_Incident_Tracking_[ds394].csv"))
fish_raw<-read_csv(here("Assignment 4","data","willamette_fish_passage.csv"))
ca_counties_sf<-read_sf(here("Assignment 4","data","ca_counties","CA_Counties_TIGER2016.shp"))
Start data wrangling for graphs
ca_subset_sf<-ca_counties_sf %>%
janitor::clean_names() %>%
select(county_name=name,land_area=aland)
#Match the CRS
ca_crs<-st_crs(ca_subset_sf)
spill_sf<-st_as_sf(spill_raw,coords=c("X","Y"),crs=ca_crs)
tmap_mode(mode="view")
tm_shape(ca_subset_sf)+
tm_fill("land_area",palette="BuGn")+
tm_shape(spill_sf)+
tm_dots()